home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 …SCII & the Runetime Code / ADC Developer CD (1992-07) (''Butch ASCII And The Runtime Code'')_iso / Dev.CD 199207.iso / Developer Essentials / DTS Sample Code / System 7.0 Samples / DTS.Utilities / GestaltEqu31.a < prev    next >
Encoding:
Text File  |  1991-01-30  |  10.5 KB  |  253 lines  |  [TEXT/MPS ]
  1. ; Version: 2.97
  2. ; Created: Friday, October 20, 1989 at 9:21:08 PM
  3. ;
  4. ; File: GestaltEqu.a
  5. ;
  6. ; Assembler Interface to the Macintosh Libraries
  7. ; Copyright Apple Computer, Inc. 1988-1990
  8. ; All Rights Reserved
  9.  
  10.     IF &TYPE('__IncludingGestaltEqu__') = 'UNDEFINED' THEN
  11. __IncludingGestaltEqu__    SET    1
  12.  
  13. **************************
  14. * Gestalt error codes
  15. **************************
  16. gestaltUnknownErr EQU         -5550                     ; gestalt doesn't know the answer
  17. gestaltUndefSelectorErr EQU   -5551                     ; undefined code was passed to Gestalt
  18. gestaltDupSelectorErr EQU     -5552                     ; tried to add an entry that already existed
  19. gestaltLocationErr EQU        -5553                     ; gestalt function ptr wasn't in sysheap
  20.  
  21. **************************
  22. *                 Environment Selectors
  23. **************************
  24. gestaltVersion    EQU         'vers'                    ; gestalt version
  25.  
  26. gestaltAddressingModeAttr EQU 'addr'                    ; addressing mode attributes
  27. gestalt32BitAddressing EQU    0                         ; using 32-bit addressing mode
  28. gestalt32BitSysZone EQU       1                         ; 32-bit compatible system zone
  29. gestalt32BitCapable EQU       2                         ; machine is 32-bit mode capable
  30.  
  31. gestaltAliasMgrAttr EQU       'alis'                    ; Alias Mgr Attributes
  32. gestaltAliasMgrPresent EQU    0                         ; True if the Alias Mgr is present
  33.  
  34. gestaltAppleTalkVersion EQU   'atlk'                    ; AppleTalk version
  35.  
  36. gestaltAUXVersion EQU         'a/ux'                    ; a/ux version, if present
  37.  
  38. gestaltConnMgrAttr            EQU        'conn'            ; connection mgr attributes
  39. gestaltConnMgrPresent        EQU        0                
  40. gestaltConnMgrCMSearchFix    EQU        1                ; do we have fix to CMAddSearch?
  41.  
  42. gestaltCRMAttr                EQU        'crm '            ; comm resource mgr attributes
  43. gestaltCRMPresent            EQU        0                
  44.  
  45. gestaltCTBVersion            EQU        'ctbv'            ; CommToolbox version if present
  46.  
  47. gestaltDBAccessMgrAttr        EQU        'dbac'            ; Database Access Mgr attributes
  48. gestaltDBAccessMgrPresent    EQU        0                 ; True if the Database Access Mgr present
  49.  
  50. gestaltDITLExtAttr            EQU        'ditl'            ; AppenDITL, etc. calls from CTB
  51. gestaltDITLExtPresent        EQU        0                 ; True if calls are present
  52.  
  53. gestaltEasyAccessAttr        EQU     'easy'            ; Easy Access attributes
  54. gestaltEasyAccessOff        EQU        0                 ; if Easy Access present, but off (no icon)
  55. gestaltEasyAccessOn            EQU        1                 ; if Easy Access "On"
  56. gestaltEasyAccessSticky        EQU        2                 ; if Easy Access "Sticky"
  57. gestaltEasyAccessLocked        EQU        3                 ; if Easy Access "Locked"
  58.  
  59. gestaltEditionMgrAttr        EQU     'edtn'            ; Edition Mgr attributes
  60. gestaltEditionMgrPresent    EQU        0                 ; True if Edition Mgr present
  61.  
  62. gestaltAppleEventsAttr        EQU        'evnt'            ; Apple Events attributes
  63. gestaltAppleEventsPresent    EQU        0                 ; True if Apple Events present
  64.  
  65. gestaltFindFolderAttr        EQU      'fold'            ; FindFolder attributes
  66. gestaltFindFolderPresent    EQU        0                 ; True if FindFolder present
  67.  
  68. gestaltFontMgrAttr            EQU        'font'            ; Font Mgr attributes
  69. gestaltOutlineFonts            EQU       0                 ; True if OutLine Fonts are supported
  70.  
  71. gestaltStandardFileAttr        EQU        'stdf'            ; Standard File attributes
  72. gestaltStandardFile58        EQU       0                 ; True if selectors 5-8 (StandardPutFile-CustomGetFile) are supported
  73.  
  74. gestaltFPUType                EQU     'fpu '            ; FPU type
  75. gestaltNoFPU                 EQU     0                 ; no FPU
  76. gestalt68881                  EQU     1                 ; 68881 FPU
  77. gestalt68882                  EQU     2                 ; 68882 FPU
  78. gestalt68040FPU                EQU     3                 ; 68040 built-in FPU
  79.  
  80. gestaltFSAttr                EQU        'fs  '            ; file system attributes
  81. gestaltFullExtFSDispatching    EQU        0                ; has really cool new HFSDispatch dispatcher
  82.  
  83. gestaltFXfrMgrAttr            EQU        'fxfr'            ; file transfer manager attributes
  84. gestaltFXfrMgrPresent        EQU        0                
  85.  
  86. gestaltHardwareAttr            EQU       'hdwr'            ; hardware attributes
  87. gestaltHasVIA1                EQU     0                 ; VIA1 exists
  88. gestaltHasVIA2                EQU     1                 ; VIA2 exists
  89. gestaltHasASC                EQU     3                 ; Apple Sound chip exists
  90. gestaltHasSCC                EQU     4                 ; SCC exists
  91. gestaltHasSCSI                EQU     7                 ; SCSI exists
  92.  
  93. gestaltHelpMgrAttr            EQU        'help'            ; Help Mgr Attributes
  94. gestaltHelpMgrPresent        EQU     0                 ; true if help mgr is present
  95.  
  96. gestaltKeyboardType            EQU       'kbd '            ; keyboard type
  97. gestaltMacKbd                EQU     1
  98. gestaltMacAndPad            EQU     2
  99. gestaltMacPlusKbd            EQU     3
  100. gestaltExtADBKbd            EQU     4
  101. gestaltStdADBKbd            EQU     5
  102. gestaltPrtblADBKbd            EQU        6
  103. gestaltPrtblISOKbd            EQU        7
  104. gestaltStdISOADBKbd            EQU       8
  105. gestaltExtISOADBKbd            EQU       9
  106. gestaltElmerKbd                EQU        10
  107. gestaltElmerISOKbd            EQU        11
  108.  
  109. gestaltLowMemorySize        EQU      'lmem'            ; size of low-memory area
  110.  
  111. gestaltLogicalRAMSize        EQU     'lram'            ; logical RAM size
  112.  
  113. gestaltMiscAttr                EQU     'misc'            ; miscellaneous information
  114. gestaltScrollingThrottle    EQU        0                 ; true if scrolling throttle on
  115. gestaltSquareMenuBar        EQU        2                ; true if menu bar is square
  116.  
  117. gestaltMMUType                EQU     'mmu '            ; MMU type
  118. gestaltNoMMU                EQU     0                 ; no MMU
  119. gestaltAMU                    EQU     1                 ; address management unit
  120. gestalt68851                EQU     2                 ; 68851 PMMU
  121. gestalt68030MMU                EQU     3                 ; 68030 built-in MMU
  122. gestalt68040MMU                EQU     4                 ; 68040 built-in MMU
  123.  
  124. gestaltNotificationMgrAttr    EQU        'nmgr'           ; notification manager attributes
  125. gestaltNotificationPresent    EQU        0                ; notification manager exists
  126.  
  127. gestaltSerialAttr            EQU        'ser '            ; serial attributes                            <26>
  128. gestaltHasGPIaToDCDa        EQU        0                ; GPIa connected to DCDa                    <26>
  129. gestaltHasGPIaToRTxCa        EQU        1                ; GPIa connected to RTxCa clock input        <26>
  130. gestaltHasGPIbToDCDb        EQU        2                ; GPIb connected to DCDb                    <26>
  131.  
  132. gestaltNuBusConnectors        EQU        'sltc'            ; bitmap of slots with NuBus connectors        <26>
  133.  
  134. gestaltOSAttr                EQU     'os  '            ; O/S attributes
  135. gestaltSysZoneGrowable        EQU        0                 ; system heap is growable
  136. gestaltLaunchCanReturn        EQU        1                 ; can return from launch
  137. gestaltLaunchFullFileSpec    EQU     2                 ; can launch from full file spec
  138. gestaltLaunchControl        EQU      3                 ; launch control support available
  139. gestaltTempMemSupport        EQU     4                 ; temp memory support
  140. gestaltRealTempMemory        EQU     5                 ; temp memory handles are real
  141. gestaltTempMemTracked        EQU     6                 ; temporary memory handles are tracked
  142. gestaltIPCSupport            EQU     7                 ; IPC support is present
  143. gestaltSysDebuggerSupport    EQU     8                 ; system debugger support is present
  144.  
  145. gestaltOSTable                EQU        'ostt'            ; OS trap table base
  146. gestaltToolboxTable            EQU        'tbtt'            ; Toolbox trap table base
  147. gestaltExtToolboxTable        EQU        'xttt'            ; Extended Toolbox trap table base
  148.  
  149. gestaltLogicalPageSize        EQU        'pgsz'            ; logical page size
  150.  
  151. gestaltPowerMgrAttr            EQU       'powr'            ; power manager attributes
  152. gestaltPMgrExists            EQU     0
  153. gestaltPMgrCPUIdle            EQU        1
  154. gestaltPMgrSCC                EQU     2
  155. gestaltPMgrSound            EQU     3
  156.  
  157. gestaltPPCToolboxAttr        EQU     'ppc '            ; PPC toolbox attributes
  158. ;
  159. ; PPC will return the combination of following bit fields.
  160. ; e.g. gestaltPPCSupportsRealTime +gestaltPPCSupportsIncomming + gestaltPPCSupportsOutGoing
  161. ;indicates PPC is cuurently is only supports real time delivery
  162. ;and both icoming and outgoing network sessions are allowed.
  163. ;By default local real time delivery is supported as long as PPCInit has been called.
  164. ;
  165. gestaltPPCToolboxPresent            EQU        $0000   ; PPC Toolbox is present  Requires PPCInit to be called
  166. gestaltPPCSupportsRealTime            EQU        $1000   ; PPC Supports real-time deliveryy
  167. gestaltPPCSupportsStoreAndForward    EQU        $2000   ; PPC Store and Forward  delivery
  168. gestaltPPCSupportsDontCare            EQU        $4000   ; PPC Supports  Specification of Don't care
  169. gestaltPPCSupportsIncomming            EQU        $0001   ; PPC will deny incomming network requests
  170. gestaltPPCSupportsOutGoing            EQU        $0002   ; PPC will deny outgoing network requests
  171.  
  172. gestaltProcessorType        EQU      'proc'            ; processor type
  173. gestalt68000                EQU     1
  174. gestalt68010                EQU     2
  175. gestalt68020                EQU     3
  176. gestalt68030                EQU     4
  177. gestalt68040                EQU     5
  178.  
  179. gestaltParityAttr            EQU     'prty'            ; parity attributes
  180. gestaltHasParityCapability    EQU        0                ; has ability to check parity
  181. gestaltParityEnabled        EQU      1                 ; parity checking enabled
  182.  
  183. gestaltQuickdrawVersion        EQU        'qd  '            ; quickdraw version
  184. gestaltOriginalQD            EQU     $000              ; original 1-bit QD                 <3.2>
  185. gestalt8BitQD                EQU     $100              ; 8-bit color QD                    <3.2>
  186. gestalt32BitQD                EQU     $200              ; 32-bit color QD                    <3.2>
  187.  
  188. gestaltPhysicalRAMSize        EQU        'ram '            ; physical RAM size
  189.  
  190. gestaltPopupAttr            EQU        'pop!'            ; popup cdef attributes
  191. gestaltPopupPresent            EQU        0
  192.  
  193. gestaltResourceMgrAttr        EQU        'rsrc'            ; Resource Mgr attributes
  194. gestaltPartialRsrcs            EQU       0                 ; True if partial resources exist
  195.  
  196. gestaltScriptMgrVersion        EQU        'scri'            ; Script Manager version number     <08/05/89 pke>
  197. gestaltScriptCount            EQU        'scr#'            ; number of active script systems    <08/05/89 pke>
  198.  
  199. gestaltSoundAttr            EQU        'snd '            ; sound attributes
  200. gestaltStereoCapability        EQU        0                 ; sound hardware has stereo capability
  201. gestaltStereoMixing            EQU       1                 ; stereo mixing on external speaker
  202. gestaltSoundIOMgrPresent    EQU        3                ; The Sound I/O Manager is present
  203. gestaltSoundInputPresent    EQU        4                ; Sound Input hardware is present
  204.  
  205. gestaltStdNBPAttr            EQU        'nlup'            ; standard nbp attributes
  206. gestaltStdNBPPresent        EQU        0
  207.  
  208. gestaltTextEditVersion        EQU        'te  '            ; TextEdit version number
  209. gestaltTE1                    EQU     1                 ; TextEdit in MacIIci ROM
  210. gestaltTE2                    EQU     2                 ; TextEdit with 6.0.4 Script Systems on MacIIci (Script bug fixes for MacIIci) <8Aug89smb>
  211. gestaltTE3                    EQU     3                 ; TextEdit with 6.0.4 Script Systems all but MacIIci
  212. gestaltTE4                    EQU     4                 ; TextEdit in Big Bang
  213.  
  214. gestaltTermMgrAttr            EQU        'term'            ; terminal mgr attributes
  215. gestaltTermMgrPresent        EQU        0                
  216.  
  217. gestaltTimeMgrVersion        EQU     'tmgr'            ; time manager attributes
  218. gestaltStandardTimeMgr EQU    1                         ; standard time mgr is present
  219. gestaltRevisedTimeMgr EQU     2                         ; revised time mgr is present
  220. gestaltExtendedTimeMgr EQU    3                         ; extended time mgr is present
  221.  
  222. gestaltVMAttr     EQU         'vm  '                    ; virtual memory attributes
  223. gestaltVMPresent  EQU         0                         ; virtual memory is present
  224.  
  225. **************************
  226. *                 Info-only   Selectors
  227. **************************
  228. gestaltMachineType EQU        'mach'                    ; machine type
  229. gestaltClassic    EQU         1
  230. gestaltMacXL      EQU         2
  231. gestaltMac512KE   EQU         3
  232. gestaltMacPlus    EQU         4
  233. gestaltMacSE      EQU         5
  234. gestaltMacII      EQU         6
  235. gestaltMacIIx     EQU         7
  236. gestaltMacIIcx    EQU         8
  237. gestaltMacSE30    EQU         9
  238. gestaltPortable   EQU         10
  239. gestaltMacIIci    EQU         11
  240. gestaltMacIIfx    EQU         13
  241. gestaltMacClassic    EQU        17                ; <29>
  242. gestaltMacIIsi    EQU            18                ; <29>
  243. gestaltMacLC    EQU            19                ; <29>
  244.  
  245.  
  246.  
  247. gestaltMachineIcon            EQU        'micn'            ; machine icon
  248.  
  249. gestaltROMSize    EQU         'rom '                    ; ROM size
  250. gestaltROMVersion EQU         'romv'                    ; ROM version
  251. gestaltSystemVersion EQU      'sysv'                    ; system version
  252.  
  253.     ENDIF    ; ...already included